home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / buttons / sprspin / spintst.frm < prev    next >
Text File  |  1995-06-26  |  9KB  |  292 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Examples Of SuperSpin"
  5.    ClientHeight    =   3270
  6.    ClientLeft      =   1650
  7.    ClientTop       =   2775
  8.    ClientWidth     =   7395
  9.    Height          =   3675
  10.    Left            =   1590
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3270
  13.    ScaleWidth      =   7395
  14.    Top             =   2430
  15.    Width           =   7515
  16.    Begin CommandButton cmdClone 
  17.       Caption         =   "&Clone Me"
  18.       Height          =   375
  19.       Left            =   5880
  20.       TabIndex        =   13
  21.       Top             =   2760
  22.       Width           =   975
  23.    End
  24.    Begin TextBox txtList 
  25.       Height          =   315
  26.       Left            =   4200
  27.       TabIndex        =   10
  28.       Top             =   2040
  29.       Width           =   1815
  30.    End
  31.    Begin TextBox txtMonths 
  32.       Height          =   315
  33.       Left            =   4200
  34.       TabIndex        =   8
  35.       Top             =   1320
  36.       Width           =   1815
  37.    End
  38.    Begin TextBox txtDays 
  39.       Height          =   315
  40.       Left            =   4200
  41.       TabIndex        =   7
  42.       Top             =   600
  43.       Width           =   1815
  44.    End
  45.    Begin CommandButton Command1 
  46.       Caption         =   "E&xit"
  47.       Height          =   375
  48.       Left            =   2640
  49.       TabIndex        =   4
  50.       Top             =   2760
  51.       Width           =   855
  52.    End
  53.    Begin TextBox txtTime 
  54.       FontBold        =   -1  'True
  55.       FontItalic      =   0   'False
  56.       FontName        =   "MS Sans Serif"
  57.       FontSize        =   12
  58.       FontStrikethru  =   0   'False
  59.       FontUnderline   =   0   'False
  60.       Height          =   495
  61.       Left            =   480
  62.       TabIndex        =   2
  63.       Top             =   2040
  64.       Width           =   975
  65.    End
  66.    Begin Label lblNumber 
  67.       BorderStyle     =   1  'Fixed Single
  68.       Height          =   315
  69.       Left            =   480
  70.       TabIndex        =   12
  71.       Top             =   1320
  72.       Width           =   975
  73.    End
  74.    Begin Label lblDate 
  75.       BorderStyle     =   1  'Fixed Single
  76.       Height          =   315
  77.       Left            =   480
  78.       TabIndex        =   11
  79.       Top             =   600
  80.       Width           =   2535
  81.    End
  82.    Begin Image spnList 
  83.       BorderStyle     =   1  'Fixed Single
  84.       Height          =   315
  85.       Left            =   6000
  86.       Stretch         =   -1  'True
  87.       Top             =   2040
  88.       Width           =   315
  89.    End
  90.    Begin Label Label6 
  91.       BackColor       =   &H00C0C0C0&
  92.       Caption         =   "Magazine Ad Formats"
  93.       Height          =   255
  94.       Left            =   4200
  95.       TabIndex        =   9
  96.       Top             =   1800
  97.       Width           =   1935
  98.    End
  99.    Begin Image spnMonths 
  100.       BorderStyle     =   1  'Fixed Single
  101.       Height          =   315
  102.       Left            =   6000
  103.       Stretch         =   -1  'True
  104.       Top             =   1320
  105.       Width           =   315
  106.    End
  107.    Begin Image spnDays 
  108.       BorderStyle     =   1  'Fixed Single
  109.       Height          =   315
  110.       Left            =   6000
  111.       Stretch         =   -1  'True
  112.       Top             =   600
  113.       Width           =   315
  114.    End
  115.    Begin Label Label5 
  116.       BackColor       =   &H00C0C0C0&
  117.       Caption         =   "Months"
  118.       Height          =   255
  119.       Left            =   4200
  120.       TabIndex        =   6
  121.       Top             =   1080
  122.       Width           =   1935
  123.    End
  124.    Begin Label Label4 
  125.       BackColor       =   &H00C0C0C0&
  126.       Caption         =   "Days of the Week"
  127.       Height          =   255
  128.       Left            =   4200
  129.       TabIndex        =   5
  130.       Top             =   360
  131.       Width           =   1935
  132.    End
  133.    Begin Image spnTime 
  134.       BorderStyle     =   1  'Fixed Single
  135.       Height          =   495
  136.       Left            =   1440
  137.       Stretch         =   -1  'True
  138.       Top             =   2040
  139.       Width           =   315
  140.    End
  141.    Begin Image spnNumber 
  142.       BorderStyle     =   1  'Fixed Single
  143.       Height          =   315
  144.       Left            =   1440
  145.       Stretch         =   -1  'True
  146.       Top             =   1320
  147.       Width           =   315
  148.    End
  149.    Begin Label Label2 
  150.       BackColor       =   &H00C0C0C0&
  151.       Caption         =   "Temperature Liquid Mercury"
  152.       Height          =   255
  153.       Left            =   480
  154.       TabIndex        =   1
  155.       Top             =   1080
  156.       Width           =   2655
  157.    End
  158.    Begin Image spnDate 
  159.       BorderStyle     =   1  'Fixed Single
  160.       Height          =   315
  161.       Left            =   3000
  162.       Stretch         =   -1  'True
  163.       Top             =   600
  164.       Width           =   495
  165.    End
  166.    Begin Label Label3 
  167.       BackColor       =   &H00C0C0C0&
  168.       Caption         =   "Diary times"
  169.       Height          =   255
  170.       Left            =   480
  171.       TabIndex        =   3
  172.       Top             =   1800
  173.       Width           =   1935
  174.    End
  175.    Begin Label Label1 
  176.       BackColor       =   &H00C0C0C0&
  177.       Caption         =   "Days in June 1995"
  178.       Height          =   255
  179.       Left            =   480
  180.       TabIndex        =   0
  181.       Top             =   360
  182.       Width           =   1935
  183.    End
  184. End
  185.  
  186. Sub cmdClone_Click ()
  187.     Dim tmpFrm As New Form1
  188.     tmpFrm.Show
  189.     tmpFrm.Move Me.Left + 100, Me.Top + 100
  190.     Set tmpFrm = Nothing
  191. End Sub
  192.  
  193. Sub Command1_Click ()
  194.     Unload Me
  195. End Sub
  196.  
  197. Sub Form_Load ()
  198.     ' Show Resources
  199.     frmFSR.Show
  200.     
  201.     Dim iSpinNr As Integer
  202.     iSpinNr = SpinInit(spnDate, lblDate, "Date")
  203.     Call SpinSetStep(iSpinNr, "1,d") ' 1 day
  204.     Call SpinSetMax(iSpinNr, "30-06-1995")
  205.     Call SpinSetMin(iSpinNr, "01-06-1995")
  206.     Call SpinSetFormat(iSpinNr, "dddd dd mmmm yyyy")
  207.     Call SpinSetValue(iSpinNr, Date)
  208.     Call SpinSetStepChange(iSpinNr, True)
  209.  
  210.     iSpinNr = SpinInit(spnNumber, lblNumber, "Number")
  211.     Call SpinSetStep(iSpinNr, 1) ' step = 1 degrees centigrade
  212.     Call SpinSetMax(iSpinNr, 357) ' boiling point Mercury
  213.     Call SpinSetMin(iSpinNr, -39) ' melting point Mercury
  214.     Call SpinSetFormat(iSpinNr, "#,##0.00 " & Chr$(34) & "░C" & Chr$(34))
  215.     Call SpinSetValue(iSpinNr, 0)
  216.     Call SpinSetStepChange(iSpinNr, True)
  217.  
  218.     iSpinNr = SpinInit(spnTime, txtTime, "Time")
  219.     Call SpinSetStep(iSpinNr, "15,n") ' 15 minutes
  220.     Call SpinSetMax(iSpinNr, "18:00") ' end of working day
  221.     Call SpinSetMin(iSpinNr, "08:00") ' start of working day
  222.     Call SpinSetValue(iSpinNr, Time)
  223.     Call SpinSetStepChange(iSpinNr, True)
  224.  
  225.     iSpinNr = SpinInit(spnDays, txtDays, "Days")
  226.     Call SpinSetValue(iSpinNr, 3)
  227.     iSpinNr = SpinInit(spnMonths, txtMonths, "Months")
  228.     Call SpinSetValue(iSpinNr, 1)
  229.  
  230.     iSpinNr = SpinInit(spnList, txtList, "List")
  231.     Call SpinSetList(iSpinNr, "1/16,1/8,1/4,1/2,3/4,1/1,2/2,1 1/2,2/1")
  232.     Call SpinSetValue(iSpinNr, 3) ' set the index
  233. End Sub
  234.  
  235. Sub Form_Unload (Cancel As Integer)
  236.     Call SpinUnload(spnDate)
  237.     Call SpinUnload(spnTime)
  238.     Call SpinUnload(spnNumber)
  239.     Call SpinUnload(spnList)
  240.     Call SpinUnload(spnMonths)
  241.     Call SpinUnload(spnDays)
  242. End Sub
  243.  
  244. Sub spnDate_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  245.     Call SpinMouseDown(spnDate, Button, Shift, X, Y)
  246. End Sub
  247.  
  248. Sub spnDate_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  249.     Call SpinMouseUp(spnDate)
  250. End Sub
  251.  
  252. Sub spnDays_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  253.     Call SpinMouseDown(spnDays, Button, Shift, X, Y)
  254. End Sub
  255.  
  256. Sub spnDays_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  257.     Call SpinMouseUp(spnDays)
  258. End Sub
  259.  
  260. Sub spnList_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  261.     Call SpinMouseDown(spnList, Button, Shift, X, Y)
  262. End Sub
  263.  
  264. Sub spnList_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  265.     Call SpinMouseUp(spnList)
  266. End Sub
  267.  
  268. Sub spnMonths_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  269.     Call SpinMouseDown(spnMonths, Button, Shift, X, Y)
  270. End Sub
  271.  
  272. Sub spnMonths_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  273.     Call SpinMouseUp(spnMonths)
  274. End Sub
  275.  
  276. Sub spnNumber_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  277.     Call SpinMouseDown(spnNumber, Button, Shift, X, Y)
  278. End Sub
  279.  
  280. Sub spnNumber_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  281.     Call SpinMouseUp(spnNumber)
  282. End Sub
  283.  
  284. Sub spnTime_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  285.     Call SpinMouseDown(spnTime, Button, Shift, X, Y)
  286. End Sub
  287.  
  288. Sub spnTime_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  289.     Call SpinMouseUp(spnTime)
  290. End Sub
  291.  
  292.